﻿Imports Security.Business

Partial Class Provider_Backup_Create
    Inherits ECGPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CheckRole("ProviderCreateBackups")
    End Sub

    Protected Sub btnGenerate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        BackupService.GenerateBackUp(ConfigurationManager.ConnectionStrings("Database").ConnectionString, _
                                     Server.MapPath("~/Backups/"), _
                                     txtNotes.Text)
        Response.Redirect("Default.aspx")
    End Sub
End Class
